home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / lib / pwd.pl < prev    next >
Text File  |  1995-03-20  |  445b  |  31 lines
  1. ;# pwd.pl - keeps track of current working directory in PWD environment var
  2. ;#
  3. ;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $
  4. ;#
  5. ;# $Log:    pwd.pl,v $
  6. ;#
  7. ;# Usage:
  8. ;#    require "pwd.pl";
  9. ;#    &initpwd;
  10. ;#    ...
  11. ;#    &chdir($newdir);
  12.  
  13. package pwd;
  14.  
  15. sub main'initpwd {
  16.     chop($ENV{'PWD'} = `pwd`);
  17. }
  18.  
  19. sub main'chdir {
  20.     local($newdir) = shift;
  21.     if (chdir $newdir) {
  22.     chop($ENV{'PWD'} = `pwd`);
  23.     1;
  24.     }
  25.     else {
  26.     0;
  27.     }
  28. }
  29.  
  30. 1;
  31.